home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / jewel quest d'85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  170 lines
  1. 10 rem ***jewel quest*** by bob blackmer
  2. 20 printchr$(147)
  3. 30 poke52,48:poke56,48:clr
  4. 40 def fnrx(x)=int(x/256)
  5. 50 def fntx(z)=x-sx*256
  6. 60 gosub680:gosub590:gosub1590
  7. 70 poke56334,peek(56334)and254:poke1,peek(1)and251
  8. 80 fori=0to63:forj=0to7
  9. 90 poke14336+i*8+j,peek(53248+i*8+j):nextj,i
  10. 100 poke1,peek(1)or4:poke56334,peek(56334)or1
  11. 110 print"[158]by the way, good luck!"
  12. 120 poke53272,(peek(53272)and240)+14:poke53270,peek(53270)or16
  13. 130 ck=0:forch=59to62:forby=0to7:readn:ck=ck+n
  14. 140 poke14336+(8*ch)+by,n:nextby,ch:ifck<>3205thenprint"error-lines 1160-1190":end
  15. 150 gosub710
  16. 160 poke53281,0:poke53280,0:poke53282,2:poke53283,5:print"[150]":print"[147]"
  17. 170 forl=1to4:print:next:print"     <========>          <========>"
  18. 180 forl=1to5:print:next:print"          <==================>"
  19. 190 forl=1to5:print:next:print"     <========>          <========>"
  20. 200 forl=1to4:print:next:print"                  <==>"
  21. 210 print"<===> energy 99[150]<========> level   [150]<====":poke2023,62
  22. 220 y1=170:x=176:pokev+2,jx(1):pokev+3,jy(1):poke2041,198:p=193:j=1:lv=1
  23. 230 c=54272:f=49241:poke700,0:poke701,39:poke702,57:poke703,58:poke704,0
  24. 240 poke2016,lv+48:poke2016+c,5:pokev+1,y1:pokev+21,2:poke1997,57:poke1998,57
  25. 250 print""tab(7)"press fire button to start":pokev+21,3
  26. 260 fr=peek(56320)and16:iffr=16then250
  27. 270 print""tab(7)"                          ":sys49437:pokev+30,0
  28. 280 sys49152:ifpeek(679)thenx=x+4:poke679,0:p=193
  29. 290 ifpeek(680)thenx=x-4:poke680,0:p=197
  30. 300 if(x<25)or(x>340)thenx=25
  31. 310 if(peek(v+1)<50)or(peek(v+1)>240)thenpokev+1,50
  32. 320 poke2040,p:sx=fnrx(x):lx=fntx(z):pokev,lx:pokev+16,sx:iflv>7thensysf
  33. 330 ifpeek(v+31)<>2thensys49348:ifpeek(704)then370
  34. 340 ifpeek(v+30)=3thengosub450
  35. 350 getan$:ifan$="[133]"thengosub500
  36. 360 goto280
  37. 370 poke198,0:poke1998,48:print""tab(15)"game over"
  38. 380 printtab(14)"play again?":printtab(17)"(y/n)"
  39. 390 wait198,1:getan$
  40. 400 ifan$="y"thengoto430
  41. 410 ifan$="n"thenpoke828,0:sys828
  42. 420 goto390
  43. 430 print""tab(15)"         ":pokev+21,0
  44. 440 printtab(14)"           ":printtab(17)"     ":goto220
  45. 450 sysf:pokes+1,9:pokes+4,17:j=j+1:ifj=11thenj=1:gosub480
  46. 460 pokev+21,1:pokev+2,jx(j):pokev+3,jy(j):pokev+21,3:pokev+30,0
  47. 470 forl=1to10:next:pokes+4,129:return
  48. 480 lv=lv+1:iflv>9then530
  49. 490 poke2016,lv+48:return
  50. 500 print""tab(7)"relax-press f3 to continue"
  51. 510 poke198,0:wait198,1:getp$:ifp$<>"[134]"then510
  52. 520 print""tab(7)"                                ":sys49437:return
  53. 530 pokes+4,17:fork=1to10
  54. 540 print"c o n g r a t u l a t i o n s ! !"
  55. 550 forl=200to20step-10:sysf:pokes+1,l:nextl:pokes+4,33
  56. 560 print"c o n g r a t u l a t i o n s ! !":forl=150to170:pokes+1,l
  57. 570 sysf:next:nextk:pokes+4,0:print"press any key to play again"
  58. 580 poke198,0:wait198,1:goto160
  59. 590 v=53248:s=54272:ck=0:forl=12288to12350:reada:ck=ck+a:pokel,a:next
  60. 600 forl=12352to12414:reada:ck=ck+a:pokel,a:next
  61. 610 forl=12544to12606:reada:ck=ck+a:pokel,a:next
  62. 620 forl=12608to12670:reada:ck=ck+a:pokel,a:next
  63. 630 forl=12672to12734:reada:ck=ck+a:pokel,a:next
  64. 640 ifck<>13468thenprint"error in lines 760-1150":end
  65. 650 pokev+28,3:pokev+37,15:pokev+38,7:pokev+39,12:pokev+40,1
  66. 660 forl=stos+24:pokel,0:next:pokes+1,200:pokes+5,16:pokes+6,64
  67. 670 pokes+18,129:pokes+14,5:pokes+24,15:return
  68. 680 ck=0:forl=1to10:readjx(l),jy(l):ck=ck+jx(l)+jy(l):next
  69. 690 ifck<>3286thenprint"error in lines 740-750":end
  70. 700 return
  71. 710 ml=49152:ck=0:forl=mltoml+309:reada:pokel,a:ck=ck+a:next
  72. 720 ifck<>37116thenprint"error in lines 1200-1580":end
  73. 730 return
  74. 740 data 92,88,255,88,175,136,92,185,255,185,175,224,113,136,234,136
  75. 750 data 113,185,234,185
  76. 760 data 34,34,32,162,162,34,170,170
  77. 770 data 186,8,32,32,0,128,0,2
  78. 780 data 20,0,8,40,0,32,40,0
  79. 790 data 128,80,0,32,80,0,8,80
  80. 800 data 0,0,112,0,2,84,0,0
  81. 810 data 85,0,0,169,64,0,33,64
  82. 820 data 0,137,64,2,2,120,8,0
  83. 830 data 156,32,0,32,168,0,42
  84. 840 data 34,34,32,136,136,136,34,32
  85. 850 data 32,0,32,0,0,128,0,2
  86. 860 data 20,0,8,40,0,32,40,0
  87. 870 data 128,80,0,32,80,0,8,80
  88. 880 data 0,0,112,0,2,84,0,0
  89. 890 data 85,0,0,169,64,0,33,64
  90. 900 data 0,137,64,2,2,120,8,0
  91. 910 data 156,32,0,32,168,0,42
  92. 920 data 34,34,32,162,162,34,170,170
  93. 930 data 186,8,32,32,0,8,0,1
  94. 940 data 66,0,0,160,128,0,160,32
  95. 950 data 0,80,8,0,80,32,0,80
  96. 960 data 128,0,112,0,1,82,0,5
  97. 970 data 80,0,20,168,0,20,32,0
  98. 980 data 20,136,0,242,2,0,232,0
  99. 990 data 128,32,0,32,168,0,42
  100. 1000 data 8,136,136,162,34,34,72,136
  101. 1010 data 138,0,32,0,0,8,0,1
  102. 1020 data 66,0,0,160,128,0,160,32
  103. 1030 data 0,80,8,0,80,32,0,80
  104. 1040 data 128,0,112,0,1,82,0,5
  105. 1050 data 80,0,20,168,0,20,32,0
  106. 1060 data 20,136,0,242,2,0,232,0
  107. 1070 data 128,32,0,32,168,0,42
  108. 1080 data 0,32,0,0,184,0,2,254
  109. 1090 data 0,0,184,0,0,32,0,0
  110. 1100 data 0,0,0,0,0,0,0,0
  111. 1110 data 0,0,0,0,0,0,0,0
  112. 1120 data 0,0,0,0,0,0,0,0
  113. 1130 data 0,0,0,0,0,0,0,0
  114. 1140 data 0,0,0,0,0,0,0,0
  115. 1150 data 0,0,0,0,0,0,0
  116. 1160 data 40,20,150,85,150,150,20,40
  117. 1170 data 2,10,42,170,85,85,85,85
  118. 1180 data 170,170,170,170,85,85,85,85
  119. 1190 data 170,169,165,149,85,84,80,64
  120. 1200 data 169,129,141,4,212,173,0,220
  121. 1210 data 41,8,208,10,169,1,141,167
  122. 1220 data 2,169,192,141,248,7,173,0
  123. 1230 data 220,41,4,208,10,169,1,141
  124. 1240 data 168,2,169,196,141,248,7,173
  125. 1250 data 0,220,41,16,208,9,206,1
  126. 1260 data 208,206,1,208,76,58,192,238
  127. 1270 data 1,208,169,0,141,0,220,173
  128. 1280 data 27,212,141,40,208,174,248,7
  129. 1290 data 224,194,16,8,169,192,141,248
  130. 1300 data 7,76,89,192,169,196,141,248
  131. 1310 data 7,169,59,174,188,2,172,189
  132. 1320 data 2,238,188,2,206,189,2,157
  133. 1330 data 0,4,157,224,5,153,240,4
  134. 1340 data 153,32,7,169,32,157,0,4
  135. 1350 data 157,224,5,153,240,4,153,32
  136. 1360 data 7,174,188,2,172,189,2,169
  137. 1370 data 59,157,0,4,157,224,5,153
  138. 1380 data 240,4,153,32,7,162,180,202
  139. 1390 data 142,1,212,224,0,208,248,173
  140. 1400 data 189,2,201,0,208,29,169,32
  141. 1410 data 141,39,4,141,7,6,141,240
  142. 1420 data 4,141,32,7,169,0,141,188
  143. 1430 data 2,169,39,141,189,2,169,0
  144. 1440 data 141,4,212,96,169,17,141,11
  145. 1450 data 212,162,220,160,15,142,8,212
  146. 1460 data 140,39,208,136,208,250,202,224
  147. 1470 data 200,208,240,169,12,141,39,208
  148. 1480 data 169,0,141,31,208,141,11,212
  149. 1490 data 206,191,2,173,191,2,201,47
  150. 1500 data 208,39,169,57,141,191,2,141
  151. 1510 data 206,7,206,190,2,173,190,2
  152. 1520 data 201,47,208,14,169,48,141,205
  153. 1530 data 7,141,206,7,169,1,141,192
  154. 1540 data 2,96,173,190,2,141,205,7
  155. 1550 data 96,141,206,7,96,169,10,162
  156. 1560 data 0,160,39,157,0,216,157,224
  157. 1570 data 217,153,240,216,153,32,219,232
  158. 1580 data 136,192,0,208,238,96
  159. 1590 poke53280,0:poke53281,11:print"[147]"tab(11)"[158] jewel  quest "
  160. 1600 printtab(17)"by":printtab(12)"bob blackmer"
  161. 1610 print"[158][159] you must gather the ten jewels on each  of nine levels.";
  162. 1620 print" you accomplish this by  flying a gyrocopter in the jewel room."
  163. 1630 print"to fly use the joystick in port #2 and  push left or right.";
  164. 1640 print" to fly up push the  fire button. to get a jewel just touch  it ";
  165. 1650 print"with your landing pods. dont touch   the velvet on which they sit ";
  166. 1660 print"or the     robot guards which patrol for they sap  your energy."
  167. 1670 printtab(4)"[158]press f1 to pause during game"
  168. 1680 printtab(8)"press any key to begin":poke198,0
  169. 1690 wait198,1:print"[147]just a moment...":return
  170.